home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CADAR / Symbols / Chords / get-n-chord-part < prev    next >
Lisp/Scheme  |  1998-10-22  |  551b  |  24 lines
  1. get-n-chord-part 
  2. chords part &optional (from 'top)
  3.  
  4. selects the n-part of chords
  5. that is when n is 1 and from is 'top
  6. selects the highest note from each chord.
  7. when n is 2 the second highest . . .
  8. when from is 'bottom selects the lowest
  9. second lowest . . .
  10.  
  11. works only in a chromatic context.
  12.  
  13.  
  14. (setq chords '(abcd efgh ijkl mno pq r =))
  15.  
  16. (get-n-chord-part chords 1 'top)
  17. ->(d h l o q r =)
  18. (get-n-chord-part chords 2 'top)
  19. ->(c g k n p r =)
  20. (get-n-chord-part chords 1 'bottom)
  21. ->(a e i m p r =)
  22. (get-n-chord-part chords 2 'bottom) 
  23. ->(b f j n q r =)
  24.